(current-word): Remove (interactive).

diff --git a/lisp/simple.el b/lisp/simple.el
index d917d846d6f9da823d21437c0e1f13c6ff71ca8a..c74141cb1c2d5c1c67aa521204477a1d372d1742 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1959,7 +1959,6 @@ move back first.  Otherwise, if point precedes a word constituent,
 move forward first.  Otherwise, move backwards until a word constituent
 is found and get that word; if you reach a newline first, move forward
 instead."
-  (interactive)
   (save-excursion
     (let ((oldpoint (point)) (start (point)) (end (point)))
       (skip-syntax-backward "w_") (setq start (point))